[pytanie] turbo pascal tablica dwuwymiarowa

[Eryk.]

siemka

mam wielki problem

szukam gotowego kodu źródłowego z tablicą (1) dwuwymiarową gdzie program wypelni losowymi liczbami. za pomoc daje limit like

prosze o sprawdzone kody

[Brucie]

program tablica;

 

uses crt;

 

var

a: array[1..10] of array[1..10] of integer;

 

begin

randomize;

for i:=1 to 10 do

for j:=1 to 10 do

a[i,j]:=random(65535)-32768;

end.

[Eryk.]

nie wyswietla mi tablicy;/ co zrobic ?

[somanyidiots]

Jest wypełnienie a nie ma wyświetlenia. Jakos tak.

for i:=1 to 10 do

for j:=1 to 10 do

writeln(a[i,j]);

[woBniaR]

program tablica;

 

uses crt;

 

var

a: array[1..10] of array[1..10] of integer;

 

begin

randomize;

for i:=1 to 10 do

for j:=1 to 10 do begin

a[i,j]:=random(65535)-32768;

writeln(a[i,j]);

end;

end.

[Oziii]

%macro poziom(alfa);

if n=0 then do;

put "!&alfa.";

end; else do;

minx=0;

maxx=5000;

F=-1;

do while(abs(F-(1-&alfa.))>1e-8);

x=(minx+maxx)/2;

F=cdf('CHISQUARE',x,n);

if F>1-&alfa.

then maxx=x;

else minx=x;

end;

put '|' x;

end;

%mend;

 

data _null_;

n=0;

m=-2;

do while (n<=1000);

m=m+1;

if n=0 then

put '!<math>n\;</math>';

else do;

if mod(m,100)=0 and m>50 then do;

put '|}';

put '{|class="wikitable"';

end; else

put '|-';

put '!' n;

end;

format x 7.5;

%poziom(0.999);

%poziom(0.995);

%poziom(0.99);

%poziom(0.98);

%poziom(0.975);

%poziom(0.95);

%poziom(0.9);

%poziom(0.85);

%poziom(0.8);

%poziom(0.75);

%poziom(0.7);

%poziom(0.65);

%poziom(0.6);

%poziom(0.55);

%poziom(0.5);

%poziom(0.45);

%poziom(0.4);

%poziom(0.35);

%poziom(0.3);

%poziom(0.25);

%poziom(0.2);

%poziom(0.15);

%poziom(0.1);

%poziom(0.05);

%poziom(0.025);

%poziom(0.02);

%poziom(0.01);

%poziom(0.005);

%poziom(0.001);

if n>0

then put '!' n;

else put '!';

if n<200

then n=n+1;

else if n<500

then n=n+5;

else n=n+10;

end;

run;

[Brucie]

%macro poziom(alfa);

if n=0 then do;

put "!&alfa.";

end; else do;

minx=0;

maxx=5000;

F=-1;

do while(abs(F-(1-&alfa.))>1e-8);

x=(minx+maxx)/2;

F=cdf('CHISQUARE',x,n);

if F>1-&alfa.

then maxx=x;

else minx=x;

end;

put '|' x;

end;

%mend;

 

data _null_;

n=0;

m=-2;

do while (n<=1000);

m=m+1;

if n=0 then

put '!<math>n\;</math>';

else do;

if mod(m,100)=0 and m>50 then do;

put '|}';

put '{|class="wikitable"';

end; else

put '|-';

put '!' n;

end;

format x 7.5;

%poziom(0.999);

%poziom(0.995);

%poziom(0.99);

%poziom(0.98);

%poziom(0.975);

%poziom(0.95);

%poziom(0.9);

%poziom(0.85);

%poziom(0.8);

%poziom(0.75);

%poziom(0.7);

%poziom(0.65);

%poziom(0.6);

%poziom(0.55);

%poziom(0.5);

%poziom(0.45);

%poziom(0.4);

%poziom(0.35);

%poziom(0.3);

%poziom(0.25);

%poziom(0.2);

%poziom(0.15);

%poziom(0.1);

%poziom(0.05);

%poziom(0.025);

%poziom(0.02);

%poziom(0.01);

%poziom(0.005);

%poziom(0.001);

if n>0

then put '!' n;

else put '!';

if n<200

then n=n+1;

else if n<500

then n=n+5;

else n=n+10;

end;

run;

 

yyy, to jest pascal?

 

edit

To jest SAS, jaki to ma związek z tematem?

[Brucie]

nie wyswietla mi tablicy;/ co zrobic ?

 

Dodane wyswietlanie w formie "tabelki"

 

program tablica;

 

uses crt;

 

var

a: array[1..10] of array[1..10] of integer;

i,j:integer;

 

begin

randomize;

{wypelnienie tablicy losowymi danymi}

for i:=1 to 10 do

for j:=1 to 10 do

a[i,j]:=random(65535)-32768;

 

{wyswietlenie tablicy}

for i:=1 to 10 do

for j:=1 to 10 do

begin

Write(a[i,j]:7);

if j=10 then writeln;

end;

readln;

end.